home *** CD-ROM | disk | FTP | other *** search
- %case doChoice%
- %DoChoice%
- %case itemNr%
- %DefineItem%
- %case classDecl%
- %if classname = superClass%
- %else%
- //----------
- class %classname% : public %superClass% {
- public:
- virtual pascal void DoEvent (EventNumber eventNumber,
- TEventHandler *source,
- TEvent *event); // is override
- }; /* %classname% */
-
- %endif%
- %case gDeadStripSuppression%
- %StripSuppression%
- %case classMethods%
- %if not classname = superClass%
- #pragma segment ARes
- //----------
- pascal void %classname%::DoEvent% %(EventNumber eventNumber,
- TEventHandler *source,
- TEvent *event)
- {
- long origID;
-
- origID = (long) (origView->fIdentifier);
- switch (origID) {
- default:
- break;
- } /* switch */
-
- inherited::DoEvent (eventNumber, source, event);
- } /* DoChoice */
-
- %endif%
- %ClassMethods%
-